Introduction

January 17, 2020 CDC begins screening passengers on direct and connecting flights from Wuhan, China at San Francisco, California, New York City, New York, and Los Angeles, California and plans to expand screening to other major airports. January 20, 2020 CDC confirms the first U.S. laboratory-confirmed case of COVID-19 in the U.S. from samples taken on January 18 in Washington state.

Dependent on a wide range of social diversion measures and state policy action indicators for COVID-19 testing and treatment, cases and deaths vary by state.

The latest Covid Case Rate Per 100k By State

CDC COVID Data Tracker provides the covid cases data by state with total time period since the first covid case comfirmed till Thu Nov 18 2021.

# specify some map projection/options
g = list(
  scope = 'usa',
  projection = list(type = 'albers usa'),
  showlakes = TRUE,
  lakecolor = toRGB('white')
)

plot_df$hover = with(plot_df, paste(
  state, '<br>')
  )

# make the plot
map_plotly1 = 
  plot_geo(plot_df, locationmode = 'USA-states') %>% 
  add_trace(
    z = ~case_rate_per_100000, 
    text = ~hover, 
    locations = ~code,
    color = ~case_rate_per_100000, 
    colorscale = list(c(0, 0.5, 1), c("#ffffff", "#83c5fd", "blue"))
  ) %>% 
  colorbar(title = "Case Rate Per 100K") %>% 
  layout(
    title = "COVID-19 Case Rate by State/Territory (cases per 100,000)",
    geo = g
  )

This map shows the number of cases since the pandemic started for every 100,000 people, allowing you to compare areas with different population sizes. [The data generated: Thu Nov 18 2021 22:02:06 GMT-0500 (EST)]

The five regions with the highest incidence of new crowns are North Dakota, Alaska, Tennessee, Wyoming and South Dakota.

Total Covid Case Rate Per 100k By State in 2020

The following map shows the covid case rate per 100k in year 2020. [The data generated: Dec.31.2020]

# specify some map projection/options
g = list(
  scope = 'usa',
  projection = list(type = 'albers usa'),
  showlakes = TRUE,
  lakecolor = toRGB('white')
)

plot_2020_df$hover = with(plot_2020_df, paste(
  state, '<br>', "Total case", total_cases, "<br>")
  )
#Make map plot.
map_plotly2 = 
  plot_geo(plot_2020_df, locationmode = 'USA-states') %>% 
  add_trace(
    z = ~total_case_rate_per_100k, 
    text = ~hover, 
    locations = ~code,
    color = ~total_case_rate_per_100k, 
    colorscale = list(c(0, 0.5, 1), c("#ffffff", "#83c5fd", "blue"))
  ) %>% 
  colorbar(title = "Case Rate Per 100K") %>% 
  layout(
    title = "2020 COVID-19 Case Rate by State/Territory (cases per 100,000)",
    geo = g
  )

The five regions with the highest incidence of new crowns are North Dakota, South Dakota, Wisconsin, Iowa and SNebraska.